﻿Public Class VergiBeyanFormuRaporu
    Inherits ProcessReport

    Dim ExcelBaslik As String = ""
    Dim Rs2 As Recordset

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)

        'Select Case e.EventType
        '    Case EventType.Initialize
		'        Text ="Vergi Beyan Formu Kayıtları Raporu"
        '        ' AddField("*AktifPasif", "nl;colspan=3")
        '        'AddField("Yasa")
        '        AddDate("Tarih1", "Başl.Tarihi", "width=8", YMD(Today), "Lütfen Tarih giriniz")
        '        AddDate("Tarih2", "Bitiş Tarihi", "width=8", YMD(Today), "Lütfen Tarih giriniz!!")

        '        AddField("Yil", "", "2010", "Lütfen Maaş kriteri için Yıl bilgisini giriniz !")
        '        AddField("Ay", "nl", "9", "Lütfen Maaş kriteri için Ay bilgisini giriniz !")

        '        AddCheck("maaskriter", "Maaş Kriterli", "", "False", "")
        '        AddText("minmaas", "Min. Maaş", "width=7", "0", "")
        '        AddText("maxmaas", "Max. Maaş", "width=7", "0", "")

        '        AddCombo("OrderBy", "Sıralama", "0,Kimlik|1,Soyad Ad|2,Ad Soyad|3,İşlem Tarihi|4,Brüt Maaş|5,Kesinti|6,Net Maaş", "width=12;nl", "1")

        '        AddCheck("AdSoyadkriter", "Ad-Soyad Ara", "", "False", "")
        '        AddText("AdAra", "Aranacak Ad", "width=8", "", "")
        '        AddText("SoyadAra", "Aranacak Soyad", "width=8;nl", "", "")

        '        Enabled("minmaas") = False
        '        Enabled("maxmaas") = False

        '        Enabled("AdAra") = False
        '        Enabled("SoyadAra") = False

        '        Exports = True
        '    Case EventType.Export
        '        Rs.Export(ExcelBaslik)

        '    Case EventType.ValidateForm

        '        Dim where, SqlStr
        '        Dim SS_SG_Kriter As String = ""
        '        Dim selectStr As String = ""

        '        If Check("Tarih1", IsEmpty("Tarih1"), "İlk Tarihi girmek zorundasınız !") Then Exit Sub
        '        If IsEmpty("Tarih2") Then Input("Tarih2") = Input("Tarih1")

        '        Dim orderBy As String = " order by " & Choose(CInt(Input("orderby")) + 1, "kimlik", "soyadi, adi", " adi, soyadi", "islemtar", "Brutmaas", "Kesinti", "Netmaas")
        '        Dim MaasKriter As String = If(Input("maaskriter") = "True", " HAVING SUM(YM.netmaas)>=" & Input("minmaas") & " and SUM(YM.netmaas)<=" & Input("maxmaas"), " ")
        '        Dim AdSoyadKriter As String = If(Input("AdSoyadkriter") = "True", " and YV.adi like '" & Input("AdAra") & "%' and YV.soyadi like '" & Input("SoyadAra") & "%'", " ")

        '        where = " where "

        '        '' ŞUBE kriter
        '        'If Input("Sube2") <> 0 Then
        '        '    SubeKriter = " sube='" & Input("Sube2") & "' "
        '        'Else
        '        '    SubeKriter = " "
        '        'End If
        '        'where = where & SubeKriter

        '        'SqlStr = "select * " & _
        '        '            " from YASLILIK..yasvergibil " & where & _
        '        '            " islemtar between :tarih1 and :tarih2 " & _
        '        '              orderBy

        '        SqlStr = "  SELECT YV.kimlik,MIN(YV.adi) as adi,MIN(YV.soyadi) as soyadi,MIN(YM.odeyerkod) as odeyerkod,MIN(YV.islemtar) as islemtar,MIN(YV.degtar) as degtar, " & _
        '                   " SUM(YM.maas) as BrutMaas,  SUM(YM.kesmaas) as Kesinti, SUM(YM.netmaas) as NetMaas " & _
        '                   "FROM [YASLILIK].[dbo].[yasvergibil] YV inner join [YASLILIK].[dbo].[yasmaas] YM  " & _
        '                   "on YV.kimlik=YM.kimlik and YM.ay=:ay and YM.yil=:yil  " & _
        '                   " and yv.degtar between :tarih1 and :tarih2 " & AdSoyadKriter & _
        '                   "group by yv.kimlik " & _
        '                    MaasKriter & orderBy

        '        Rs = OpenSQL(SqlStr, Input("Ay"), Input("Yil"), Input("Tarih1"), Input("Tarih2"))

        '        If Rs.EOF Then
        '            If Confirm("Bu tarihte yapılmış Vergi Beyan Formu kaydı bulunamadı, başka tarihe ait liste yapmak istiyormusunuz?") Then
        '                Focus("Tarih1")
        '                Exit Sub
        '            End If
        '            'Input("AktifPasif") = "A"
        '        End If

        '        Buttons.Show("Export.Restart")

        '        e.Result = True

        '    Case EventType.Other

        '        If e.Name = "maaskriter.Change" Then
        '            If Input("maaskriter") = "True" Then
        '                Enabled("minmaas") = True
        '                Enabled("maxmaas") = True
        '                Focus("minmaas")
        '            Else
        '                Enabled("minmaas") = False
        '                Enabled("maxmaas") = False
        '                Focus("minmaas")
        '            End If
        '        End If

        '        If e.Name = "AdSoyadkriter.Change" Then
        '            If Input("AdSoyadkriter") = "True" Then
        '                Enabled("AdAra") = True
        '                Enabled("SoyadAra") = True
        '                Focus("AdAra")
        '            Else
        '                Enabled("AdAra") = False
        '                Enabled("SoyadAra") = False
        '                Focus("AdAra")
        '            End If
        '        End If
        '    Case EventType.Export
        '        Rs.Export(ExcelBaslik)

        '    Case EventType.ReportHeader

        '        ExcelBaslik = Input("Tarih1") & " - " & Input("Tarih2") & " ARASI VERGİ BEYAN FORMU KAYIT DÖKÜMÜ"

        '        '   Report.PrintHeader(ExcelBaslik)
        '        '  i = 0
        '        Report.SkipLine()

        '    Case EventType.PageHeader
        '        Report.PrintPageHeader(ExcelBaslik)

        '        Report.SetColumns("Sıra;Kimlik;Adı Soyadı;ÖdemeYeri;İşlem Tar.;Değişk. Tar.;Brüt Maaş;Kesinti;Net Maaş", "2;3;4;2;3;3;3;3;3", "l;c;l;l;d;d;r;r;r", "--n")


        '    Case EventType.ReportDetail
        '        Dim sayac As Int16 = 1
        '        Do Until Rs.EOF
        '            Report.Print(sayac, Rs("kimlik"), Rs("adi") & " " & Rs("soyadi"), Rs("odeyerkod"), Rs("islemtar"), Rs("degtar"), Rs("BrutMaas"), Rs("Kesinti"), Rs("Netmaas"))

        '            sayac += 1
        '            Rs.MoveNext()
        '        Loop


        'End Select
    End Sub
End Class
